<script>on mouseUpglobal cancelput false into cancelset the cursor to watchif the optionkey is down thenset the visible of cd fld "XCMDs" ¬to not the visible of cd fld "XCMDs"exit mouseupend ifif the commandkey is down thenlock screengo to last cd of bg id 2049domenu "new card"unlock screen with dissolveexit mouseupend ifhide msgput the number of lines of cd fld "XCMDs" into numLinesput "Choose 1 of " & numLines-1 & " XCMDs..." into promptif ColorOn() thenShowDialog 7,1001,prompt,"New York",9,cd fld "XCMDs",1elseShowDialog 7,1000,prompt,"New York",9,cd fld "XCMDs",1end ifif the result is empty thenput true into cancelexit mouseupelseif the number of items in the result = 1 thenput the result into theLineNumberget line theLineNumber of cd field "XCMDs"put strip(",",it) into itvisual effect dissolvego to card it of bg "XCMDs"elsebeepanswer "Please don't select multiple lines."click at the loc of meend ifend ifend mouseUp</script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>266</left>
<top>128</top>
<right>434</right>
<bottom>175</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<name>XFCNs</name>
<script>on mouseUpglobal cancelput false into cancelset the cursor to watchif the optionkey is down thenset the visible of cd fld "XFCNs" ¬to not the visible of cd fld "XFCNs"exit mouseupend ifif the commandkey is down thenlock screengo to last cd of bg id 3914domenu "new card"unlock screen with dissolveexit mouseupend ifhide msgput the number of lines of cd fld "XFCNs" into numLinesput "Choose 1 of " & numLines-1 & " XFCNs..." into promptif ColorOn() thenShowDialog 7,1001,prompt,"New York",9,cd fld "XFCNs",1elseShowDialog 7,1000,prompt,"New York",9,cd fld "XFCNs",1end ifif the result is empty thenput true into cancelexit mouseupelseif the number of items in the result = 1 thenput the result into theLineNumberget line theLineNumber of cd field "XFCNs"put strip(",",it) into itvisual effect dissolvego to card it of bg "XFCNs"elsebeepanswer "Please don't select multiple lines."click at the loc of meend ifend ifend mouseUp</script>
</part>
<part>
<id>9</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>266</left>
<top>189</top>
<right>434</right>
<bottom>236</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<name>Buttons</name>
<script>on mouseUpglobal cancelput false into cancelset the cursor to watchif the optionkey is down thenset the visible of cd fld "Buttons" ¬to not the visible of cd fld "Buttons"exit mouseupend ifif the commandkey is down thenlock screengo to last cd of bg id 4868domenu "new card"unlock screen with dissolveexit mouseupend ifhide msgput the number of lines of cd fld "Buttons" into numLinesput "Choose 1 of " & numLines-1 & " Buttons..." into promptif ColorOn() thenShowDialog 7,1001,prompt,"New York",9,cd fld "Buttons",1elseShowDialog 7,1000,prompt,"New York",9,cd fld "Buttons",1end ifif the result is empty thenput true into cancelexit mouseupelseif the number of items in the result = 1 thenput the result into theLineNumberget line theLineNumber of cd field "Buttons"put strip(",",it) into itvisual effect dissolvego to card it of bg "Buttons"elsebeepanswer "Please don't select multiple lines."click at the loc of meend ifend ifend mouseUp</script>
</part>
<part>
<id>10</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>73</left>
<top>189</top>
<right>241</right>
<bottom>236</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<name>Scripts</name>
<script>on mouseUpglobal cancelput false into cancelset the cursor to watchif the optionkey is down thenset the visible of cd fld "Scripts" ¬to not the visible of cd fld "Scripts"exit mouseupend ifif the commandkey is down thenlock screengo to last cd of bg id 4555domenu "new card"unlock screen with dissolveexit mouseupend ifhide msgput the number of lines of cd fld "Scripts" into numLinesput "Choose 1 of " & numLines-1 & " Scripts..." into promptif ColorOn() thenShowDialog 7,1001,prompt,"New York",9,cd fld "Scripts",1elseShowDialog 7,1000,prompt,"New York",9,cd fld "Scripts",1end ifif the result is empty thenput true into cancelexit mouseupelseif the number of items in the result = 1 thenput the result into theLineNumberget line theLineNumber of cd field "Scripts"put strip(",",it) into itvisual effect dissolvego to card it of bg "Scripts"elsebeepanswer "Please don't select multiple lines."click at the loc of meend ifend ifend mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>211</left>
<top>312</top>
<right>304</right>
<bottom>341</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name> About...</name>
<script>on mouseUpif the visible of cd btn "Cancel" is true thenlock screenclick at the loc of cd btn "Cancel"unlock screen with dissolveend iflock screenhide cd fld "QInfo"hide cd fld "QInfoBack"unlock screen with dissolveplay laserif ColorOn() thencolor white,redgo to this cdCreditsDialog 21108,2042,2043lock screenunlock screen with zoom outcolor blue,blackgo to this cdShowDialog 5,4748,45lock screenunlock screen with zoom inlock screenshow cd fld "about"unlock screen with visual iris opencolor blue,yellowgo to this cdelseCreditsDialog 21108,1042,1043lock screenunlock screen with zoom outShowDialog 5,4747,44lock screenunlock screen with zoom inlock screenshow cd fld "about"unlock screen with visual iris openend ifend mouseUp</script>
<script>on mouseUpglobal autocompact,powerDialogs,thethreshold,Hospitalitylock screenshow cd fld "curtain"show cd fld "thethresh"show cd fld "lockthresh"show cd button "auto compact when closing"show cd button "power dialogs"show cd button "cancel"show cd button "OK"show cd fld "backuped"show cd btn "joe"show cd btn "Hospitality"set the hilite of cd btn "auto compact when closing" to autocompactset the hilite of cd btn "power dialogs" to powerdialogsset the hilite of cd btn "Hospitality" to Hospitalityput thethreshold into line 1 of cd fld thethreshunlock screen with dissolveplay harpsichord c17end mouseUp</script>
<script>on mouseupif the optionkey is down thenask"What's the new version number? Currently: " & meif it is empty then exit mouseupput "version " & it into mesetVersionbeepanswer "Reset the startup about?" with "Yes" or "No"put it into cd fld "firsttime"end ifend mouseup</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>91</left>
<top>254</top>
<right>158</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>BackUp...</name>
<script>on mouseUpglobal theThresholdif the freesize of this stack > (theThreshold * 1000) thenshow msgtype "Compacting the stack first..."domenu "Compact stack"put empty into msghide msgend ifdomenu "Save a copy..."put "Last backed up on " & the date & " at " & the time¬& " : Backup today!" into cd fld "backuped"end mouseUp</script>
</part>
<part>
<id>25</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>68</left>
<top>105</top>
<right>439</right>
<bottom>119</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>StackInfo</name>
<script>on mouseupglobal theThresholdif the freesize of this stack = 0 thenplay harpsichord c17answer "There is no reason to compact. The freesize of " &¬"Scripts & Backflips™ = Zeeeero."exit mouseupend ifif the freesize of this stack > (theThreshold * 1000) thenput empty into msgtype "Compacting 'Scripts & Backflips'..."domenu "compact stack"put empty into msghide msgelsebeepanswer "Scripts & Backflips™ is within the compacting " & ¬"threshold set in the OPTIONS dialog, however " & ¬"you can compact it if you wish." with "Compact It!"¬or "Cancel"if it is "Compact It!" thenput empty into msgtype "Compacting 'Scripts & Backflips'..."domenu "compact stack"put empty into msghide msgend ifend ifend mouseup</script>
</part>
<part>
<id>29</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>356</left>
<top>254</top>
<right>423</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>ResCopy...</name>
<script>on mouseUprescopyend mouseUp</script>
</part>
<part>
<id>30</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>13</left>
<top>34</top>
<right>109</right>
<bottom>61</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>sorter</name>
<script></script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>433</left>
<top>254</top>
<right>500</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>Sort...</name>
<script>on mouseUpglobal sortingplay harpsichord c17answer "Sorting this stack may take awhile... " & ¬" Only do this if you're sure you know what you are doing!" ¬with "Sort" or "Cancel"if it is "Cancel" then exit mouseupput true into sortingsortTheDamnThingput false into sortingput "Sort complete!"end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>14</left>
<top>254</top>
<right>81</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>New York</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<name>List All...</name>
<script>on mouseUpglobal cancelput false into cancelset the cursor to watchput empty into Backflipsput cd fld "XCMDs" into Backflipsput cd fld "XFCNs" after Backflipsput cd fld "Scripts" after Backflipsput cd fld "Buttons" after Backflipsput the number of lines of cd fld "XCMDs" +¬the number of lines of cd fld "XFCNs" +¬the number of lines of cd fld "Scripts" +¬the number of lines of cd fld "Buttons" into numLinesput "Choose 1 of " & numLines-4 & " backflips..." into promptif ColorOn() thenShowDialog 7,1001,prompt,"New York",9,Backflips,1elseShowDialog 7,1000,prompt,"New York",9,Backflips,1end ifif the result is empty thenput true into Cancelexit mouseupelseif the number of items in the result = 1 thenput the result into theLineNumberget line theLineNumber of Backflipsput strip(",",it) into itlock screengo nextfind whole it in bg fld "theName"unlock screen with dissolveelsebeepanswer "Please don't select multiple lines."click at the loc of meend ifend ifput empty into Backflipsend mouseUp</script>
</part>
<part>
<id>33</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>50</left>
<top>300</top>
<right>94</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>333</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mousedownif the visible of cd btn "Cancel" is true thenlock screenclick at the loc of cd btn "Cancel"unlock screen with dissolveend iflock screenhide cd fld "about"unlock screen with dissolverepeat 2set the icon of me to "acousynthesis"set the icon of me to "an intro to midi"set the icon of me to 2957 -- Korg M1 Helpset the icon of me to "all locked up!"set the icon of me to "hmct"end repeatset the icon of me to 333lock screenshow cd fld "QInfoBack"show cd fld "QInfo"unlock screen with dissolverepeat 2set the icon of me to "acousynthesis"set the icon of me to "an intro to midi"set the icon of me to 2957 -- Korg M1 Helpset the icon of me to "all locked up!"set the icon of me to "hmct"end repeatset the icon of me to 333lock screenend mousedown</script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>420</left>
<top>300</top>
<right>464</right>
<bottom>339</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>333</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mousedownif the visible of cd btn "Cancel" is true thenlock screenclick at the loc of cd btn "Cancel"unlock screen with dissolveend iflock screenhide cd fld "about"unlock screen with dissolverepeat 2set the icon of me to "acousynthesis"set the icon of me to "an intro to midi"set the icon of me to 2957 -- Korg M1 Helpset the icon of me to "all locked up!"set the icon of me to "hmct"end repeatset the icon of me to 333lock screenshow cd fld "QInfoBack"show cd fld "QInfo"unlock screen with dissolverepeat 2set the icon of me to "acousynthesis"set the icon of me to "an intro to midi"set the icon of me to 2957 -- Korg M1 Helpset the icon of me to "all locked up!"set the icon of me to "hmct"end repeatset the icon of me to 333lock screenend mousedown</script>
</part>
<part>
<id>35</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>15</left>
<top>1</top>
<right>33</right>
<bottom>18</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mousedownput the mouseloc into myPlaceput item 1 of myPlace + 40 into horizput item 2 of myPlace + 60 into vertget PopUpMenu("About Scripts & Backflips...",0,vert, horiz)if it = 1 thenclick at the loc of bg btn " about..."end ifend mousedown</script>
<name>Look at XCMD/XFCN Source Code Shells...</name>
<script>on mouseUpvisual effect dissolvego to card id 41671end mouseUp</script>
</part>
<name>S&B MainMenu</name>
<script>on idleput the number Of Cards into NumCardsput (the freesize of this stack div 1024) into Freeput (the size of this stack div 1024) into theStackSize--put (the size of this stack div 1024) - ¬--(the freesize of this stack div 1024) into actualput (the diskspace div 1024) into freeOnDiskput "-> " & NumCards - 6 & " flips • Stack: " & theStackSize & ¬"K • Free in stack: " & free¬& "K • Free on disk: " & freeOnDisk & "K <-" into bg fld StackInfoend idle</script>